;; 用于Emacs终端版本



;;
;;
;;   美化
;;
;;


;; 配色
(load-theme 'wombat)

;; 关闭欢迎页面
(setq inhibit-splash-screen t)

;; 禁用菜单栏
(menu-bar-mode -1)

;; modeline 美化
(doom-modeline-mode 1)

;; 括号高亮
(show-paren-mode 1)






;;
;;
;;   效率
;;
;;


;; minibuffer 候选/补全
(ivy-mode 1)








;;
;;
;;   Lisp 开发
;;
;;



;; paredit
(autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp code." t)
(add-hook 'emacs-lisp-mode-hook       #'enable-paredit-mode)
(add-hook 'eval-expression-minibuffer-setup-hook #'enable-paredit-mode)
(add-hook 'lisp-mode-hook             #'enable-paredit-mode)
(add-hook 'lisp-interaction-mode-hook #'enable-paredit-mode)
(add-hook 'scheme-mode-hook           #'enable-paredit-mode)


;; 使用guile作为scheme实现
(setq scheme-program-name "guile")



;;
;;
;;   翻译
;;
;;




;; sdcv翻译
(global-set-key (kbd "C-c u") 'sdcv-search-pointer)




;;
;;
;; 邮件
;;
;;

;; 邮件地址
(setq user-mail-address "xxx@outlook.com")
;; 使用SMTP
(setq message-send-mail-function 'smtpmail-send-it)
;; SMTP 服务器
(setq smtpmail-smtp-server "smtp.office365.com")
(setq smtpmail-smtp-service 587)





;;
;;
;;   按键
;;
;;


;; 只读模式
(global-set-key (kbd "C-c r") 'read-only-mode)

;; 重新绑定 Ctrl + space 到 Meta + space
(global-unset-key (kbd "C-SPC"))
(global-set-key (kbd "M-SPC") 'set-mark-command)






;;
;;
;;   输入法
;;
;;


;; Rime 输入法
(setq default-input-method 'rime)

;; 输入法预加载
(toggle-input-method)
(toggle-input-method)



;; tg

(setq telega-proxies
      (list
       '(:server "127.0.0.1" :port 1080:enable t :type (:@type "proxyTypeSocks5"))))



;;
;; w3m
;;


(setq w3m-command-arguments '(
	"-o" "http_proxy=http://127.0.0.1:7890/" 
	"-o" "https_proxy=http://127.0.0.1:7890/"))


